Sampling & Re-grouping
names <- sample(c(
"John", "Jon", "Jhon", "Jonh",
"Michael", "Micheal", "Michel",
"Emily", "Emili", "Emely", "Emiley",
"Sarah", "Sara", "Sera", "Serah",
"Matthew", "Mathew", "Mathhew",
"Jessica", "Jessika", "Jesica", "Jessicah",
"Daniel", "Daniele", "Danial",
"Elizabeth", "Elisabeth", "Elisabet",
"David", "Davi", "Davide",
"Jennifer", "Jennipher", "Jenifer",
"Christopher", "Cristopher", "Christoper",
"Amanda", "Amandah", "Amandaa",
"Andrew", "Andrw", "Andew",
"Stephanie", "Stephany", "Stephaine",
"Joshua", "Josh", "Jshua"
), replace = FALSE)
group <- function(names)
{
val2=NULL
for (i in names)
{
val=agrep(i,names)
val2=c(val2,val)
}
val2=unique(val2)
return(names[val2])
}
group(names)
## [1] "John" "Jon" "Jonh" "Stephanie" "Davi"
## [6] "Daniele" "Danial" "Daniel" "David" "Davide"
## [11] "Micheal" "Michel" "Emily" "Emili" "Emely"
## [16] "Emiley" "Mathhew" "Mathew" "Matthew" "Jessika"
## [21] "Jessicah" "Jessica" "Jenifer" "Jennifer" "Amandaa"
## [26] "Amandah" "Amanda" "Andew" "Andrw" "Andrew"
## [31] "Sarah" "Sara" "Serah" "Stephany" "Christopher"
## [36] "Cristopher" "Christoper" "Stephaine" "Elizabeth" "Elisabeth"
## [41] "Sera" "Jennipher" "Josh" "Joshua" "Jhon"
## [46] "Elisabet" "Jshua" "Jesica" "Michael"